0 GOTO1000
10 PRINT""W7$"[145]"W5$W$"   [157][157][157]";
11 GETJ$:IFJ$=""THENPRINTWU$WV$;:GOSUB50:PRINTWY$WV$;:GOSUB50:GOTO11
12 PRINT""W7$"[145]"WZ$:RETURN
16 PRINT""W7$"[145]"W5$W$"   [157][157][157]";
18 GOSUB60:J$=W$
19 PRINT""W7$"[145]"WZ$:RETURN
20 PRINT"[147]"WZ$:POKEP0,K0:POKEPP,K1
21 PRINT"";:FORL=C0TO22:PRINTWW$;:NEXT:RETURN
24 PRINT""+W2$+W2$"TO CONTINUE HIT SPACE "
25 GETJ$:IFJ$=""THEN25
26 IFJ$=" "THENRETURN
28 PRINT"[147]TOTAL $"+STR$(T)
29 PRINT"END":END
30 FORZ1=1TO10:PRINT""W7$""WS$""W7$"[146]"WS$:NEXTZ1
32 R=RND(-TI)
33 FORI=C0TO51:FL%(I)=C0:NEXT
34 FORI=C0TO48
35 C%=51*RND(C1)+C1
36 IFFL%(C%)<>C0THEN35
37 C%(I)=C%:FL%(C%)=C1
38 NEXT
39 R=0:E=1:GOSUB46:RETURN
40 W$=W$+LEFT$(WW$,24-LEN(W$)):RETURN
42 W$=W$+LEFT$(WW$,30-LEN(W$)):RETURN
46 PRINT""W7$WZ$:RETURN
48 PRINT""W7$"[145]"W$:RETURN
49 FORZ=1TO10:PRINT""W7$"[145]"W$:PRINT""W7$"[146][145]"W$:NEXT:RETURN
50 TT=TI
52 IFTI-TT<15THEN52
54 RETURN
56 TT=TI
58 IFTI-TT<60THEN58
59 RETURN
60 W$="":X1=C0
61 GETJ$:IFJ$=""THENPRINTWU$WV$;:GOSUB50:PRINTWY$WV$;:GOSUB50:GOTO61
62 J=ASC(J$):WL=LEN(W$)
63 IFJ$=WY$THENX1=VAL(W0$):PRINT" [157]";:RETURN
64 IFJ=CMORWL>=Z9THENW0$=W$:X1=VAL(W$):RETURN
66 IFJ=20ANDWL>C0THENW$=LEFT$(W$,WL-C1):PRINTWV$;:GOTO61
67 IF(JAND127)<32THEN61
68 W$=W$+J$:PRINTWY$WV$J$;
69 GOTO61
100 PRINTC$"A[157]"Y$" [157]"Y$"[157] "Y$"[157]A[146]";:RETURN
101 PRINTC$"2[157]"Y$""Y$"[157]"Y$""Y$"[157]2[146]";:RETURN
102 PRINTC$"3[157]"Y$""Y$"[157]"Y$"[157]"Y$""Y$"[157]3[146]";:RETURN
103 GOSUB116:GOTO119
104 GOSUB103:GOTO121
105 GOSUB117:GOTO119
106 GOSUB105:PRINTC$"[145][145][145][145][157][157][157]"Y$;:RETURN
107 GOSUB118:GOTO119
108 GOSUB107:GOTO121
109 GOSUB118:PRINTC$""W1$W3$"10"Y$"[157]"Y$"[157]10[146]";:RETURN
110 PRINTC$"  [223] [146][169]"W3$"[199][167][165][165]"W3$"[199]   [146]"W3$"[199]   [146][200]";
111 PRINTW3$"    [146][200]"W3$"   [200][146]"W3$"[167][167][165][200]"W3$"[169] [223][146]";:GOTO119
112 PRINTC$"  [169][163][212] "W3$"[169][146][194] [181]"W3$"    [146][187]"W3$"[146]     ";
113 PRINTW3$"[146][188]    [146]"W3$"[182] [221][169]"W3$"[146] [217][164][146][169][146]";:GOTO119
114 PRINTC$"  [223]  [146][169]"W3$" [170]  "W3$"[169]   [188]"W3$"[146]      [146] ";
115 PRINTW3$"[187]   [146][169]"W3$"  [146] [165]"W3$"[169]  [223][146]";:GOTO119
116 PRINTC$" [157] " Y$""Y$"[157][157][157][157][157]"Y$""Y$  " [146]";:RETURN
117 GOSUB116:PRINT"[157][157][157][157][157][157][145][145][145]"Y$""Y$"[146]";:RETURN
118 GOSUB116:PRINT"[145][145][145][145][157][157][157][157][157][157]"Y$""Y$"[157][157][157][157][157]"Y$""Y$"[146]";:RETURN
119 IFX$="P"THENPRINTW1$""W3$N$"[157]"Y$W2$W4$"[157][157][145][145]"N$"[145][157]"Y$"[157][146]";:RETURN
120 IFX$="D"THENPRINTW1$""W3$N$"[157]"Y$W2$W4$"[157][157][145][145]"N$"[145][157]"Y$"[157][146]";:RETURN
121 PRINT"[145][145][145][157][157][157]"Y$"[146]";:RETURN
130 IFZ<>3THENRETURN
131 W$="YOU WIN":IFT=TYTHENW$="YOU SPLIT"
132 IFT<TYTHENW$="DEALER WINS"
133 GOSUB50100:W$="":RETURN
180 IFY$="[193]"ORY$="[216]"THENC$=C0$:RETURN
182 IFY$="[211]"ORY$="[218]"THENC$=C1$:RETURN
189 RETURN
190 ONX3GOSUB100,101,102,103,104,105,106,107,108,109,110,112,114
199 RETURN
200 C=C+1
202 GOSUB180
210 IFX$="D"THENX=0
212 IFX$="P"THENX=12
220 TE=C%(R):X3=INT(TE/4)+1:Y$=MID$(YZ$,TE-4*(X3-1)+1,1)
222 N$=MID$(YZ$,X3+4,1):X9=X3:GOSUB180
229 R=R+1
230 IFX3>9THENX9=10
232 IFX3=1THENX9=11
239 IFX$<>"P"THEN260
240 X8=X8+X9:IFX3=1THENA=A+1
250 IFA>0THENIFX8>21THENX8=X8-10:A=A-1
259 RETURN
260 X7=X7+X9:IFX3=1THENB=B+1
270 IFX8<22ANDX7=X8THEN290
280 IFB>0ANDX7>21THENX7=X7-10:B=B-1
290 IFX8>21THENC=3
299 RETURN
300 PRINT""
310 IFX$="P"THENX=12
320 IFX$="D"THEN X=0
330 IFX=0THEN340
339 FORZ1=1TOX:PRINT"";:NEXT
340 IFY=0THEN53701
349 FORZ1=1TOY:PRINT"";:NEXT
350 IFX$="D"ANDC=2THEN360
359 IFY>0ANDC>0THENPRINT"[167][157][167][157][167][157][167][157][167][157][167][157][167][157][167][157][167][157]"W1$"";
360 FORZ1=1TO9
362 IFH=0THENPRINTW9$"[157][157][157][157][157][157][157]";
364 IFH=1THENPRINTW8$"[157][157][157][157][157][157][157]";
369 NEXT
370 IFH=1THENPRINTW1$;
379 RETURN
1000 CLR:PRINT"[147]":POKE59468,12:POKE53280,15:POKE53281,1
1002 W1$="[145][145][145][145][145][145][145][145][145]":W2$="":W3$="[157][157][157][157][157][157][157]":W4$="":W7$=W2$+""
1004 W0$="":WY$=CHR$(32):WW$=WY$:FORI=1TO6:WW$=WW$+WW$:NEXT:WW$=""+WW$
1006 WW$=LEFT$(WW$,41):WZ$=LEFT$(WW$,40):W5$=LEFT$(WW$,7):WU$="[166]":WV$="[157]"
1008 B$=LEFT$(WW$,31):BB$=MID$(WW$,2,32)
1009 W8$="       ":W9$="[166][166][166][166][166][166][166]"
1010 C0=0:C1=1:C2=2:C6=6:CM=13:P0=1063:PP=55335:K0=160:K1=6:TZ=10:Z9=C6
1012 C0$="[151]":C1$="[150]":O$=CHR$(CM)
1014 YY$="YOU HAVE":WS$=" S H U F F L I N G ":YZ$="[193][211][216][218]A234567891JQK"
1019 DIMC%(51),FL%(51)
1050 PRINT"[147]"SPC(5)B$
1052 PRINTSPC(5)" BLACKJACK     COMMODORE 1978 ":PRINTSPC(5)B$
1054 PRINTSPC(5)" REWRITTEN FOR VIC 64      BY ":PRINTSPC(5)B$
1056 PRINTSPC(5)" DAVID MAKINS    SEATTLE 1982 ":PRINTSPC(5)B$
1059 PRINT""SPC(5)B$
1060 PRINTSPC(5)" WHEN PLACING BETS -          ":PRINTSPC(5)B$
1062 PRINTSPC(5)" ENTER AMOUNT AND HIT RETURN. ":PRINTSPC(5)B$
1064 PRINTSPC(5)" TO REPEAT SAME AMOUNT -      ":PRINTSPC(5)B$
1066 PRINTSPC(5)" HIT SPACE                    ":PRINTSPC(5)B$
1068 PRINTSPC(5)" TO START - HIT SPACE         ":PRINTSPC(5)B$:GOSUB25
1069 PRINT"[147]
1099 [141]20:[141]30:[137]30010
3000 [153]""
30000 [141]20
30010 S$[178]"":B[178]0:A[178]0:C[178]0:V[178]0:VV[178]0:X7[178]0:X8[178]0:Z[178]0
30020 [153]""W$:[153]""[163]18)"  YOUR BET? ";:[141]18
30030 BJ[178]0:X2[178][181](X1):[139]X2[179]1[167]30000
30100 [139]X2[177]25000[167]W$[178]"HOUSE LIMIT = $25000":[141]50100:[137]30000
30110 H[178]1:L7[178]X2:DD[178]X2:[141]49120
30120 X2$[178][196](X2):X2$[178][200](X2$[170]B$,11)[170]"CMDCMD "
30130 [153]""[166]20)"     BET$"X2$
30200 [139]R[177]36[167][141]30
30900 X$[178]"P":[141]220
31000 D2[178]X3:D2$[178]N$:D5$[178]Y$:X[178]12:Y[178]0
31300 [141]300:[141]190
31910 X$[178]"D":[141]220
40100 H[178]0:X[178]0:Y[178]0:[141]300
40200 D1[178]X3:D1$[178]N$:D3$[178]Y$:H[178]1:Y[178]Y[171]1
40210 X$[178]"P":[141]200
40217 [139]Z[178]3[167]P2[178]X8
40218 D4[178]X3:D4$[178]N$:D6$[178]Y$
40224 T5$[178][196](X8)
40225 Y[178]Y[170]3:[141]300:[141]190
40360 [139]C[177]1[176]Z[177]0[167][142]
40370 Y[178]Y[170]6
40380 X$[178]"D":[141]200:[141]300:Y[178]Y[171]1:[141]190
40560 [139]C[177]2[167][142]
40566 Y[178]Y[171]5
40570 [139]X3[178]1[167][141]59700
40700 W$[178]YY$[170][196](X8):[141]59800
40710 [139]X7[178]21[176]X8[178]21[176]X8[177]21[167]49000
40720 [139]C[178]5[175]X8[179]22[167]49000
40723 [139]C[178]2[175]D4[178]D2[175]Z[178]0[167]57000
40726 W$[178]"DO YOU WANT A HIT?(Y/N)":[139]C[179]3[167]W$[178][200](W$,24)[170]"/D)"
40730 [141]10
40910 [139]J$[178]"Y"[167][141]40210:[137]40700
40950 [139]J$[178]"N"[167]49000
40956 [139]J$[178]"D"[175]C[179]3[167]59600
40960 [137]40720
45000 CC[178]C:X$[178]"D":X[178]0:Y[178]0:[141]300:X3[178]D1:N$[178]D1$:Y$[178]D3$
45002 [141]180:[141]190:Y[178]Y[170]6
45010 [139]Z[178]3[175]VV[178]0[175]X8[179]21[167]W$[178]YY$[170][196](X8):[141]59800
45012 [139]Z[179]3[175]X8[179]22[167]W$[178]YY$[170][196](X8):[141]59800
45015 [139]X7[178]21[167]45021
45016 [139]CC[178]2[175]X8[178]21[175]Z[179][177]3[167]45021
45018 [139]X7[177]16[167]45021
45020 Y[178]Y[170]4:C[178]4:[141]40380:[137]45015
45021 [139]Z[179][177]3[167]46000
45022 [139]P2[178]21[175]VV[178]0[167]C[178]CC:[137]58000
45023 [139]VV[167][141]59500
45024 [139]P2[177]21[167][141]57500
45025 [139]X7[179]22[167]45031
45027 [153]""W2$"BUSTED WITH"X7
45028 [139]VV[178]0[175]P2[179]21[167]T[178]T[170]DD
45029 [139]V[178]0[175]P1[179]21[167]T[178]T[170]X2
45030 [137]49004
45031 [139]V[178]0[175]P1[179]21[175]P1[177]X7[167]T[178]T[170]X2
45032 [139]P1[179]21[175]X7[177]P1[175]V[178]0[167]T[178]T[171]X2
45033 [139]P2[179]21[175]X7[177]P2[175]VV[178]0[167]T[178]T[171]DD
45034 [139]VV[178]0[175]P2[179]21[175]P2[177]X7[167]T[178]T[170]DD
46000 [137]49004
49000 [139]C[178]5[175]X8[179]22[175]Z[178]3[167]VV[178]9
49001 [139]C[178]5[175]X8[179]22[175]Z[179]3[167]V[178]8
49002 [139]Z[178]2[167]49005
49003 [137]45000
49004 [139]Z[178]3[167]49110
49005 [139]X8[177]21[167][141]57500:[137]49110
49006 [139]X7[177]21[175]V[178]0[167]59010
49007 [139]X8[178]21[167][137]58000
49009 [139]X7[178]21[167][137]58500
49010 [139]V[178]8[167][141]59500:[137]49110
49011 [139]Z[178]2[167]57100
49015 [139]X8[177]X7[167]59010
49020 [139]X8[178]X7[167]59030
49030 [139]X8[179]X7[167]59050
49110 [139]Z[178]2[167][137]57100
49116 [139]X7[179]22[167][153]""W2$"DEALER HAS"X7
49117 [139]Z[178]0[167][141]50100
49119 [141]130:[141]49120:[141]24:[137]30000
49120 TY[178]T:[139]T[178]0[167]W$[178]"BROKE EVENWAIT"
49121 [139]T[177]0[167]W$[178]"WINNING $"[170][196](T)
49122 [139]T[179]0[167]W$[178]"LOSING $"[170][196]([182](T))
49124 [141]40:[139]FF[178]0[167][153]""W$
49126 [139]FF[178]1[167]FF[178]0
49129 [142]
50100 [139]BJ[178]0[175]X8[178]21[175]X7[179][177]21[167]W$[178]"YOU WIN"
50109 [141]49:[142]
50700 [145]X3[141]100,101,102,103,104,105,106,107,108,109,110,112,114
50740 [142]
51800 [139]Y$[178]"ATN"[176]Y$[178]"(null)"[167]C$[178]C0$:[142]
51810 [139]Y$[178]"(null)"[176]Y$[178]"(null)"[167]C$[178]C1$:[142]
51820 [142]
52000 [143]
52200 TE[178]C%(R):X3[178][181](TE[173]4)[170]1:Y$[178][202](YZ$,TE[171]4[172](X3[171]1)[170]1,1)
52202 [141]51800
52210 N$[178][202](YZ$,X3[170]4,1):X9[178]X3
52220 R[178]R[170]1
52620 [139]X3[177]9[167]X9[178]10
52625 [139]X3[178]1[167]X9[178]11
52630 [139]X$[179][177]"P"[167]52650
52635 X8[178]X8[170]X9:[139]X3[178]1[167]A[178]A[170]1
52640 [139]A[177]0[167][139]X8[177]21[167]X8[178]X8[171]10:A[178]A[171]1
52645 [142]
52650 X7[178]X7[170]X9
52651 [139]X3[178]1[167]B[178]B[170]1
52652 [139]X8[179]22[175]X7[178]X8[167]52670
52660 [139]B[177]0[175]X7[177]21[167]X7[178]X7[171]10:B[178]B[171]1
52670 [139]X8[177]21[167]C[178]3
52700 [142]
52800 C[178]C[170]1
52810 [139]X$[178]"D"[167]X[178]0
52820 [139]X$[178]"P"[167]X[178]12
52830 [137]52200
53000 [153]""
53100 [139]X$[178]"P"[167]X[178]12
53120 [139]X$[178]"D"[167] X[178]0
53130 [139]X[178]0[167]53405
53200 [129]Z1[178]1[164]X:[153]"";:[130]
53405 [139]Y[178]0[167]53701
53500 [129]Z1[178]1[164]Y:[153]"";:[130]
53701 [139]X$[178]"D"[175]C[178]2[167]53710
53705 [139]Y[177]0[175]C[177]0[167][153]"THENCMDTHENCMDTHENCMDTHENCMDTHENCMDTHENCMDTHENCMDTHENCMDTHENCMD"W1$"";
53710 [129]Z1[178]1[164]9
53805 [139]H[178]0[167][153]W9$"CMDCMDCMDCMDCMDCMDCMD";
53810 [139]H[178]1[167][153]W8$"CMDCMDCMDCMDCMDCMDCMD";
53910 [130]
53920 [139]H[178]1[167][153]W1$;
53930 [142]
54000 [129]I1[178]0[164]8:[153]W8$:[130]:[153]W1$:[142]
57000 W$[178]"DO YOU WANT TO SPLIT?(Y/N)":[141]10
57010 [139]J$[178]"N"[167][137]40726
57015 [139]J$[179][177]"Y"[167]57000
57020 [139]D2[178]1[167]A[178]1
57021 F[178]X8[173]2:[139]D2[178]1[167]F[178]11:X8[178]11
57029 C[178]0
57030 X$[178]"P":X[178]13:Y[178]0:[141]53000:X3[178]D2:N$[178]D2$:Y$[178]D5$:[141]50700
57040 X$[178]"P":X[178]13:Y[178]20:[141]53000:X3[178]D4:N$[178]D4$:Y$[178]D6$:[141]50700
57070 X8[178]F:C[178]1:Y[178][171]1:Z[178]2:X[178]13:[141]40210:[137]40700
57100 [139]V[178]0[175]X8[179]22[167]W$[178]YY$[170][196](X8):[141]59800
57110 A[178]0:P1[178]X8:X8[178]F:C[178]2:[139]D2[178]1[167]A[178]1
57170 X$[178]"P":X8[178]F:C[178]1:Y[178]19:Z[178]3:X[178]13:[141]40210:[137]40700
57500 [139]Z[178]3[167]T[178]T[171]DD
57505 [139]Z[179]3[167]T[178]T[171]X2
57510 W$[178]"BUSTED WITH"[170]T5$:[141]59800:F9[178]20:W$[178]"DEALER WON":[142]
58000 [139]C[177]2[167]58100
58003 [139]Z[178]0[175]X7[178]X8[167]59030
58005 [139]Z[178]3[167]T[178]T[170](1.5[172]DD)
58015 [139]Z[179]3[167]T[178]T[170](1.5[172]X2)
58025 BJ[178]1:W$[178]"YOU WIN WITH WAITBLACKJACK":[137]49110
58100 [139]Z[178]0[175]X7[178]X8[167]59030
58101 [139]Z[178]0[175]V[178]8[167][141]59500:[137]49110
58102 [139]Z[179]3[167]T[178]T[170]X2
58103 [139]Z[178]3[167]T[178]T[170]DD
58105 W$[178]YY$[170]" 21":[141]59800:[139]X7[179][177]X8[167]49110
58500 [139]X7[178]X8[167]59030
58502 [139]C[177]2[167]58600
58510 W$[178]"DEALER WINS WITH WAITBLACKJACK":T[178]T[171]X2:[137]49110
58600 [139]Z[178]0[167][139]X7[178]X8[167]59030
58610 [139]Z[178]3[167]T[178]T[171]DD
58620 [139]Z[179]3[167]T[178]T[171]X2
58630 W$[178]"DEALER WINS":[137]49110
59010 T[178]T[170]X2:W$[178]"YOU WIN"
59013 [139]X7[177]21[167][153]""W2$"BUSTED WITH"X7:W$[178]"YOU WINWAIT"
59029 [137]49110
59030 W$[178]"THIS IS A PUSH"
59037 [139]C[178]2[167][139]X7[178]21[167]W$[178]"BOTH HAVE BLACKJACK"
59040 [137]49110
59050 T[178]T[171]X2:W$[178]"DEALER WINS":[137] 49110
59500 [139]Z[178]3[167]T[178]T[170]DD
59510 [139]Z[179]3[167]T[178]T[170]X2
59520 W$[178]"5 CARD CHARLIE !":[139]Z[177]0[167]59800
59530 [142]
59600 [139]Z[179]3[167]X2[178]X2[172]2
59605 [139]Z[178]3[167]DD[178]DD[172]2
59606 [141]40210:[137]49000
59700 W$[178]"INSURANCE?(Y/N)":[141]10
59720 [139]J$[178]"N"[167][142]
59722 [139]J$[178]"Y"[167]59730
59724 [137]59700
59730 W$[178]"INSURANCE BET $":Z9[178]6:[141]16:I[178][181](X1):[139]I[179]1[176]I[177]25000[167]59730
59750 Z9[178]0:[139]X7[178]21[167]T[178]T[170]2[172]I:[141]49120:[142]
59760 W$[178]"NO BLACKJACK LOST YOUR INSURANCE":[141]46:[141]48
59770 T[178]T[171]I:[141]49120:[141]56:[142]
59800 [139]Z[179]3[167][153]"ONWAIT"W7$W$"  ":[142]
59810 [139]Z[178]3[167][153]"ONWAIT"W7$W4$W4$W4$"CMD"W$"  ":[142]
59820 [142]